#
#this is a comment
rawdata <- c( 55,56,98,100,15,12,33,45,32,67,82,19,25)

summary(rawdata)

plot(rawdata, type = "b", xlab ="Time in seconds", ylab = "CPU Usage")
abline(h = min(rawdata), col = "red")
abline(h = mean(rawdata), col = "orange")
abline(h = max(rawdata), col = "green")
